home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib33b.dsk
/
COLLISION DEMO 2.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
558b
|
20 lines
10 POKE 768,1: POKE 769,0: POKE 770,4
20 POKE 771,0: POKE 772,4: POKE 773,0
30 POKE 232,0: POKE 233,3: REM $E8,E9=$300
40 HGR : HCOLOR= 3
50 HOME
60 GOSUB 180
70 REM 'XDRAW' SCANNER
80 SCALE= 80
90 FOR R = 0 TO 63
100 ROT= R
110 XDRAW 1 AT 140,80: REM XDRAW 1ST IMAGE
120 FOR I = 1 TO 25: NEXT I: REM DELAY LOOP
130 XDRAW 1 AT 140,80: REM 'ERASE' IMAGE
140 VTAB 22: PRINT PEEK(234);" "
150 IF PEEK(234) >0 THEN GET A$: IF A$ = "X" THEN
160 NEXT R
170 GOTO 90
180 REM CREATE FIELD
190 HPLOT 140,100: HPLOT 140,101
200 RETURN